10 INPUT"WAS NUN ";BE$:REM BEFEHL
20 GOSUB51000         :REM ZERLEGUNG
30 PRINT:PRINT"BE$=";CHR$(34);BE$;CHR$(34):PRINT
40 FORI=1TO10
50 :PRINT"BE$(";RIGHT$(STR$(I),LEN(STR$(I))-1);")=";CHR$(34);BE$(I);CHR$(34)
60 NEXT:PRINT
70 GOTO10
51000 REMBE$ IN BE$(1)-BE$(10) ZERLEGEN
51010 FORI=1TO10:BE$(I)="":NEXT
51020 WZ=1
51030 FORI=1TOLEN(BE$)
51040 :IFMID$(BE$,I,1)=" "THENWZ=WZ+1:GOTO51060
51045 :IFWZ>10THENPRINT"EINGABE IST ZU LANG !":I=LEN(BE$)+1:GOTO51060
51050 :BE$(WZ)=BE$(WZ)+MID$(BE$,I,1)
51060 NEXTI
51070 RETURN